home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / lamemo / memo.sty < prev    next >
Text File  |  1991-02-01  |  44KB  |  1,635 lines
  1. \typeout{Document Style 'memo'. Released March 28, 1990}
  2. \def\thebibliography#1{%
  3. \par%
  4. \vspace{\baselineskip}%
  5. REFERENCES%
  6. \list%
  7. {[\arabic{enumi}]}{\settowidth\labelwidth{[#1]}\leftmargin\labelwidth
  8. \advance\leftmargin\labelsep
  9. \usecounter{enumi}}%
  10. \def\newblock{\hskip .11em plus .33em minus -.07em}%
  11. \sloppy\clubpenalty4000\widowpenalty4000
  12. \sfcode`\.=1000\relax}%
  13. \let\endthebibliography=\endlist
  14. \setcounter{topnumber}{2}
  15. \def\topfraction{.7}
  16. \setcounter{bottomnumber}{1}
  17. \def\bottomfraction{.3}
  18. \setcounter{totalnumber}{3}
  19. \def\textfraction{.2}
  20. \def\floatpagefraction{.5}
  21. \setcounter{dbltopnumber}{2}
  22. \def\dbltopfraction{.7}
  23. \def\dblfloatpagefraction{.5}
  24. \long\def\@makecaption#1#2{%
  25. \vskip 10pt 
  26. \setbox\@tempboxa\hbox{#1: #2}%
  27. \ifdim \wd\@tempboxa >\hsize %
  28. #1: #2\par %
  29. \else %
  30. \hbox to\hsize{\hfil\box\@tempboxa\hfil}%
  31. \fi
  32. }%
  33. \newcounter{figure}
  34. \def\thefigure{\@arabic\c@figure}
  35. \def\fps@figure{tbp}
  36. \def\ftype@figure{1}
  37. \def\ext@figure{lof}
  38. \def\fnum@figure{Figure \thefigure}
  39. \def\figure{\@float{figure}}
  40. \let\endfigure\end@float
  41. \@namedef{figure*}{\@dblfloat{figure}}
  42. \@namedef{endfigure*}{\end@dblfloat}
  43. \newcounter{table}
  44. \def\thetable{\@arabic\c@table}
  45. \def\fps@table{tbp}
  46. \def\ftype@table{2}
  47. \def\ext@table{lot}
  48. \def\fnum@table{Table \thetable}
  49. \def\table{\@float{table}}
  50. \let\endtable\end@float
  51. \@namedef{table*}{\@dblfloat{table}}
  52. \@namedef{endtable*}{\end@dblfloat}
  53. \def\@ptsize{0} %
  54. \@namedef{ds@11pt}{\def\@ptsize{1}} %
  55. \@namedef{ds@12pt}{\def\@ptsize{2}} %
  56. \@twosidefalse
  57. \def\ds@draft{\overfullrule 5pt} %
  58. \@options
  59. \lineskip 1pt %
  60. \normallineskip 1pt
  61. \def\baselinestretch{1}
  62. \ifcase \@ptsize\relax %
  63. \def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt 
  64. \abovedisplayskip 10pt plus2pt minus5pt%
  65. \belowdisplayskip \abovedisplayskip
  66. \abovedisplayshortskip \z@ plus3pt%
  67. \belowdisplayshortskip 6pt plus3pt minus3pt%
  68. \let\@listi\@listI} %
  69. \def\small{\@setsize\small{11pt}\ixpt\@ixpt
  70. \abovedisplayskip 8.5pt plus 3pt minus 4pt%
  71. \belowdisplayskip \abovedisplayskip
  72. \abovedisplayshortskip \z@ plus2pt%
  73. \belowdisplayshortskip 4pt plus2pt minus 2pt%
  74. \def\@listi{\leftmargin\leftmargini %
  75. \topsep 4pt plus 2pt minus 2pt\parsep 2pt plus 1pt minus 1pt
  76. \itemsep \parsep}}
  77. \def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
  78. \abovedisplayskip 6pt plus 2pt minus 4pt%
  79. \belowdisplayskip \abovedisplayskip
  80. \abovedisplayshortskip \z@ plus 1pt%
  81. \belowdisplayshortskip 3pt plus 1pt minus 2pt%
  82. \def\@listi{\leftmargin\leftmargini %
  83. \topsep 3pt plus 1pt minus 1pt\parsep 2pt plus 1pt minus 1pt
  84. \itemsep \parsep}}
  85. \def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
  86. \def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
  87. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  88. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  89. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  90. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  91. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  92. \or %
  93. \def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
  94. \abovedisplayskip 11pt plus3pt minus6pt%
  95. \belowdisplayskip \abovedisplayskip
  96. \abovedisplayshortskip \z@ plus3pt%
  97. \belowdisplayshortskip 6.5pt plus3.5pt minus3pt%
  98. \let\@listi\@listI} %
  99. \def\small{\@setsize\small{12pt}\xpt\@xpt
  100. \abovedisplayskip 10pt plus2pt minus5pt%
  101. \belowdisplayskip \abovedisplayskip
  102. \abovedisplayshortskip \z@ plus3pt%
  103. \belowdisplayshortskip 6pt plus3pt minus3pt%
  104. \def\@listi{\leftmargin\leftmargini %
  105. \topsep 6pt plus 2pt minus 2pt\parsep 3pt plus 2pt minus 1pt
  106. \itemsep \parsep}}
  107. \def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
  108. \abovedisplayskip 8pt plus 2pt minus 4pt%
  109. \belowdisplayskip \abovedisplayskip
  110. \abovedisplayshortskip \z@ plus 1pt%
  111. \belowdisplayshortskip 4pt plus 2pt minus 2pt%
  112. \def\@listi{\leftmargin\leftmargini %
  113. \topsep 4pt plus 2pt minus 2pt\parsep 2pt plus 1pt minus 1pt
  114. \itemsep \parsep}}
  115. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  116. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  117. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  118. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  119. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  120. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  121. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  122. \or %
  123. \def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
  124. \abovedisplayskip 12pt plus3pt minus7pt%
  125. \belowdisplayskip \abovedisplayskip
  126. \abovedisplayshortskip \z@ plus3pt%
  127. \belowdisplayshortskip 6.5pt plus3.5pt minus3pt%
  128. \let\@listi\@listI} %
  129. \def\small{\@setsize\small{13.6pt}\xipt\@xipt
  130. \abovedisplayskip 11pt plus3pt minus6pt%
  131. \belowdisplayskip \abovedisplayskip
  132. \abovedisplayshortskip \z@ plus3pt%
  133. \belowdisplayshortskip 6.5pt plus3.5pt minus3pt%
  134. \def\@listi{\leftmargin\leftmargini %
  135. \parsep 4.5pt plus 2pt minus 1pt
  136. \itemsep \parsep
  137. \topsep 9pt plus 3pt minus 5pt}}
  138. \def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
  139. \abovedisplayskip 10pt plus2pt minus5pt%
  140. \belowdisplayskip \abovedisplayskip
  141. \abovedisplayshortskip \z@ plus3pt%
  142. \belowdisplayshortskip 6pt plus3pt minus3pt%
  143. \def\@listi{\leftmargin\leftmargini %
  144. \topsep 6pt plus 2pt minus 2pt\parsep 3pt plus 2pt minus 1pt
  145. \itemsep \parsep}}
  146. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  147. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  148. \def\large{\@setsize\large{18pt}\xivpt\@xivpt}
  149. \def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
  150. \def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
  151. \def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
  152. \let\Huge=\huge
  153. \fi
  154. \normalsize %
  155. \marginparwidth 90pt %
  156. \marginparsep 11pt %
  157. \marginparpush 5pt %
  158. \footheight 12pt %
  159. \footskip 25pt %
  160. \footnotesep 12pt %
  161. \skip\footins 10pt plus 2pt minus 4pt %
  162. \floatsep 12pt plus 2pt minus 2pt
  163. \textfloatsep 20pt plus 2pt minus 4pt
  164. \intextsep 12pt plus 2pt minus 2pt
  165. \@maxsep 20pt
  166. \@fptop 0pt plus 1fil
  167. \@fpsep 8pt plus 2fil
  168. \@fpbot 0pt plus 1fil
  169. \parindent 0pt %
  170. \partopsep 0pt %
  171. \@lowpenalty 51 %
  172. \@medpenalty 151 %
  173. \@highpenalty 301 %
  174. \@beginparpenalty -\@lowpenalty %
  175. \@endparpenalty -\@lowpenalty %
  176. \@itempenalty -\@lowpenalty %
  177. \def\theequation{\arabic{equation}}
  178. \arraycolsep 5pt %
  179. \arrayrulewidth .4pt %
  180. \doublerulesep 2pt %
  181. \skip\@mpfootins = \skip\footins
  182. \fboxsep = 3pt %
  183. \fboxrule = .4pt %
  184. \def\footnoterule{\kern-1\p@ 
  185. \hrule width .4\columnwidth 
  186. \kern .6\p@} %
  187. \long\def\@makefntext#1{\noindent %
  188. \hangindent 5pt\hbox 
  189. to 5pt{\hss $^{\@thefnmark}$}#1}
  190. \def\today{\ifcase\month\or
  191. January\or February\or March\or April\or May\or June\or
  192. July\or August\or September\or October\or November\or December\fi
  193. \space\number\day, \number\year}
  194. \pagenumbering{arabic} %
  195. \onecolumn %
  196. \@fileswtrue
  197. \newlength{\@lengthlabel}
  198. \newlength{\@lengthrule}
  199. \newlength{\@lengthdate}
  200. \newlength{\@lengthname}
  201. \newcounter{@countlist}
  202. \newcount\@countverticalposition
  203. \newcount\@countclasssep
  204. \newcount\@counttemp
  205. \newcount\@counttemptwo
  206. \newcount\@countto
  207. \newcount\@countfrom
  208. \newcount\@countthru
  209. \newcount\@countcy
  210. \newcount\@countattachments
  211. \newcount\@countreference
  212. \newcount\@countenc
  213. \newcount\@countdistribution
  214. \newcount\@countleftcolon
  215. \newcount\@countrightcolon
  216. \newcount\@countleftheader
  217. \newcount\@countrightheader
  218. \newcount\@countmemolist
  219. \newtoks\@toksto
  220. \newtoks\@toksfrom
  221. \newtoks\@toksthru
  222. \newtoks\@tokscy
  223. \newtoks\@toksattachments
  224. \newtoks\@toksenc
  225. \newtoks\@toksreference
  226. \newtoks\@toksdistribution
  227. \newtoks\@toksheaderone
  228. \newtoks\@toksheadertwo
  229. \newtoks\@toksbeforenewline
  230. \newtoks\@toksafternewline
  231. \newtoks\@toksbeforecomma
  232. \newtoks\@toksempty
  233. \newtoks\@toksblank
  234. \newtoks\@toksnewline
  235. \newtoks\@toksremaining
  236. \newtoks\@toksmultipleto
  237. \newtoks\@toksitem
  238. \newsavebox{\@boxtemp}
  239. \newsavebox{\@boxclasspage}
  240. \newsavebox{\@boxpagetwoheader}
  241. \newdimen\@dimentoppagetwo
  242. \newdimen\@dimenspacetosubject
  243. \newdimen\@dimenpagetwoheader
  244. \newdimen\@dimenfirstpageleftheader
  245. \newdimen\@dimenwdtt
  246. \newdimen\@dimenmemopaperhcorr
  247. \newdimen\@dimenmemopapervcorr
  248. \newdimen\@dimenspaceaftercolon
  249. \newdimen\descriptionmargin
  250. \newdimen\@dimenversemargin
  251. \newdimen\@dimentemp
  252. \newskip\@parskipsave
  253. \newif\if@comma
  254. \newif\if@newline
  255. \newif\if@notvoidtoks
  256. \newif\if@toksnotequal
  257. \newif\if@beenhere
  258. \newif\if@somethingbefore
  259. \newif\if@continueloop
  260. \newif\if@cmfonts
  261. \newif\if@closing
  262. \clubpenalty=10000
  263. \widowpenalty=10000
  264. \textheight 724pt
  265. \topmargin -72pt%
  266. \topskip 0pt
  267. \headheight 0pt
  268. \headsep 0pt
  269. \footskip 43pt
  270. \textwidth 432pt
  271. \@countverticalposition 0
  272. \@countclasssep 24 %
  273. \@toksempty={}
  274. \@toksblank={ }
  275. \@toksnewline={\\}
  276. \@dimenpagetwoheader 180pt
  277. \@dimenfirstpageleftheader 220pt
  278. \@dimenmemopaperhcorr 0pt
  279. \@dimenmemopapervcorr 0pt
  280. \@dimenspaceaftercolon 12pt
  281. \def\@blank{ }%
  282. \def\@tt{tt}\def\@rm{rm}%
  283. \def\@texfonts{texfonts}%
  284. \def\@lafonts{lafonts}\def\@postscript{postscript}%
  285. \def\@memopaper{memopaper}%
  286. \def\@standard{standard}%
  287. \def\@short{short}\def\@long{long}\def\@underscore{underscore}%
  288. \def\@ibmpc{ibmpc}\def\@vaxvms{vaxvms}\def\@vaxunix{vaxunix}%
  289. \def\@sununix{sununix}\def\@apollo{apollo}%
  290. \def\to#1{\@toksinput{to}{#1}}%
  291. \def\from#1{\@toksinput{from}{#1}}%
  292. \def\cy#1{\@toksinput{cy}{#1}}%
  293. \def\thru#1{\@toksinput{thru}{#1}}%
  294. \def\attachments#1{\@toksinput{attachments}{#1}}%
  295. \def\reference#1{\@toksinput{reference}{#1}}%
  296. \def\distribution#1{\@toksinput{distribution}{#1}}%
  297. \def\enc#1{\@toksinput{enc}{#1}}%
  298. \def\typeface#1{\def\@typeface{#1}%
  299. \@unspaceleft\@typeface \@unspaceright\@typeface}%
  300. \def\headerfonts#1{\def\@headerfonts{#1}%
  301. \@unspaceleft\@headerfonts \@unspaceright\@headerfonts}%
  302. \def\bodyfonts#1{\def\@bodyfonts{#1}%
  303. \@unspaceleft\@bodyfonts \@unspaceright\@bodyfonts
  304. \ifx\@bodyfonts\@postscript \@psdefclasslabel\fi}%
  305. \def\subject#1{%
  306. \def\@subject{#1}%
  307. \@upperunspaceleft\@subject}%
  308. \def\symbol#1{\def\@symbol{#1}\@unspaceright\@symbol}%
  309. \def\serialnumber#1{\def\@serialnumber{#1}\@unspaceleft\@serialnumber
  310. \@unspaceright\@serialnumber}%
  311. \def\mailstop#1{\def\@mailstop{#1}\@unspaceright\@mailstop}%
  312. \def\telephone#1{\def\@telephone{#1}\@unspaceleft\@telephone}%
  313. \def\date#1{\def\@date{#1}\@unspaceright\@date}%
  314. \def\shortmemostyle{\def\@shortmemostyle{}}%
  315. \def\signer#1{%
  316. \def\@signer{#1}%
  317. \@unspaceright\@signer
  318. \@upperunspaceleft\@signer}%
  319. \def\originator#1{%
  320. \def\@originator{#1}%
  321. \@unspaceright\@originator
  322. \@upperunspaceleft\@originator}%
  323. \def\typist#1{%
  324. \def\@typist{#1}%
  325. \ifx\@typist\@empty
  326. \else
  327. \ifx\@typist\@blank
  328. \def\@typist{}%
  329. \else
  330. \def\@typist{\lowercase{\ignorespaces#1}}%
  331. \fi \fi
  332. }%
  333. \def\memopaperhcorr#1{\@ifnoinfo{#1}%
  334. {\@dimenmemopaperhcorr=0pt}{\@dimenmemopaperhcorr=#1}}%
  335. \def\memopapervcorr#1{\@ifnoinfo{#1}%
  336. {\@dimenmemopapervcorr=0pt}{\@dimenmemopapervcorr=#1}}%
  337. \def\signature#1{\def\@signature{#1}}%
  338. \def\approval#1{\def\@approval{#1}}%
  339. \def\cypagebreak{\def\@cypagebreak{}}%
  340. \def\attachmentspagebreak{\def\@attachmentspagebreak{}}%
  341. \def\encpagebreak{\def\@encpagebreak{}}%
  342. \def\distributionpagebreak{\def\@distributionpagebreak{}}%
  343. \def\encas{\def\@encas{}}%
  344. \def\attachmentas{\def\@attachmentas{}}%
  345. \def\attachmentsas{\def\@attachmentsas{}}%
  346. \def\encpagebreak{\def\@encpagebreak{}}%
  347. \def\classlabel#1{%
  348. \begingroup
  349. \def\@unspacedclasslabel{#1}%
  350. \@unspaceleft{\@unspacedclasslabel}%
  351. \@unspaceright{\@unspacedclasslabel}%
  352. \@ifundefined{@classlabel}%
  353. {}{\gdef\@todieornottodie{\@errortwoclasses\@exit}}%
  354. \def\@secret{s}\def\@confidential{c}\def\@unclassified{u}%
  355. \ifx \@unspacedclasslabel \@secret%
  356. \gdef\@classlabel{SECRET}%
  357. \typeout{^^JThis memo will be marked SECRET.^^J}%
  358. \else \ifx \@unspacedclasslabel \@confidential%
  359. \gdef\@classlabel{CONFIDENTIAL}%
  360. \typeout{^^JThis memo will be marked CONFIDENTIAL.^^J}%
  361. \else \ifx \@unspacedclasslabel \@unclassified%
  362. \gdef\@classlabel{UNCLASSIFIED}%
  363. \typeout{^^JThis memo will be marked UNCLASSIFIED.^^J}%
  364. \else \ifx \@unspacedclasslabel \@empty%
  365. \gdef\@classlabel{}%
  366. \else 
  367. \gdef\@todieornottodie{%
  368. \gdef\@classlabel{#1}%
  369. \@errorclassargument
  370. \@exit
  371. }%
  372. \fi \fi \fi \fi
  373. \endgroup
  374. \@todieornottodie
  375. }%
  376. \def\@toksinput#1#2{%
  377. \def\@toksname{\csname @toks#1\endcsname}%
  378. \def\@countname{\csname @count#1\endcsname}%
  379. \@toksnotequal\@toksname\@toksempty
  380. \if@toksnotequal
  381. \@addtotoks\@toksname\\
  382. \fi
  383. \@beenherefalse
  384. \@toksremaining={#2}%
  385. \loop
  386. \@tonewlinepull\@toksremaining
  387. \@somethingbeforefalse
  388. \@toksnotequal\@toksbeforenewline\@toksempty
  389. \if@toksnotequal
  390. \@toksnotequal\@toksbeforenewline\@toksblank
  391. \if@toksnotequal
  392. \@somethingbeforetrue
  393. \fi
  394. \fi
  395. \if@somethingbefore
  396. \if@beenhere
  397. \@addtotoks\@toksname\\
  398. \else
  399. \@beenheretrue
  400. \fi
  401. \@addtokstotoks\@toksname\@toksbeforenewline
  402. \@continuelooptrue
  403. \advance\@countname by 1
  404. \else
  405. \@toksnotequal\@toksafternewline\@toksempty%
  406. \if@toksnotequal
  407. \@toksnotequal\@toksafternewline\@toksnewline%
  408. \if@toksnotequal
  409. \@continuelooptrue%
  410. \else
  411. \@continueloopfalse%
  412. \fi
  413. \else
  414. \@continueloopfalse%
  415. \fi
  416. \fi
  417. \if@continueloop
  418. \@toksremaining=\@toksafternewline
  419. \repeat
  420. }%
  421. \def\opening
  422. {%
  423. \@checkinput
  424. \@choosefonts
  425. \@initializefontvariables
  426. \@initializeheadervariables
  427. \@makepagetwoheader
  428. \@printfirstpageheader
  429. \@beginmemo
  430. }%
  431. \def\closing
  432. {%
  433. \normalsize
  434. \@closingtrue
  435. \@endmemo
  436. \@clearclosing
  437. \@printsignature
  438. \@printoriginatorline
  439. \@printapproval
  440. \@printenc
  441. \@printattachments
  442. \@printdistribution
  443. \@printcy
  444. }%
  445. \def\@checkinput{%
  446. \ifnum\@countto=0\@errorundeclared{\to}%
  447. \@errorshowexample{\to}{George Benford, EX-4, MS M775}\fi
  448. \ifnum\@countfrom=0\@errorundeclared{\from}%
  449. \@errorshowexample{\from}{Ann Turner, AB-DO, MS D405}\fi
  450. \@ifemptyorundefined{@symbol}%
  451. {\def\@symbol{}\@errorundeclared{\symbol}%
  452. \@errorshowexample{\symbol}{C-2}}{}%
  453. \@ifemptyorundefined{@subject}%
  454. {\def\@subject{}\@errorundeclared{\subject}%
  455. \@errorshowexample{\subject}{Building Schedule}}{}%
  456. \@ifemptyorundefined{@originator}%
  457. {\def\@originator{}\@errorundeclared{\originator}%
  458. \@errorshowexample{\originator}{BJD}}{}%
  459. \@ifundefined{@signer}%
  460. {\def\@signer{}}{}%
  461. \@ifundefined{@typist}%
  462. {\def\@typist{}}{}%
  463. \@ifemptyorundefined{@mailstop}%
  464. {\def\@mailstop{}\@errorundeclared{\mailstop}%
  465. \@errorshowexample{\mailstop}{B233}}{}%
  466. \@ifemptyorundefined{@telephone}%
  467. {\def\@telephone{}\@errorundeclared{\telephone}%
  468. \@errorshowexample{\telephone}{7-1102}}{}%
  469. \@ifemptyorundefined{@date}{\def\@date{\today}}{}%
  470. \@ifundefined{@serialnumber}%
  471. {\def\@serialnumber{}}{}%
  472. \def\@symbolserialnumber{%
  473. \@symbol
  474. \ifx\@symbol\@empty
  475. \else
  476. \ifx\@serialnumber\@empty
  477. \else
  478. -\relax
  479. \fi\fi
  480. \@serialnumber\ }%
  481. \@ifemptyorundefined{@typeface}{\def\@typeface{tt}}{}%
  482. \@ifemptyorundefined{@headerfonts}{\def\@headerfonts{texfonts}}{}%
  483. \@ifemptyorundefined{@bodyfonts}{\def\@bodyfonts{texfonts}}{}%
  484. }%
  485. \def\@choosefonts
  486. {%
  487. \@amorcm
  488. \@getpostscriptnames
  489. \@chooseheaderfonts
  490. \@choosebodyfonts
  491. }%
  492. \def\@amorcm{{%
  493. \edef\a{\csname cmr10\endcsname}%
  494. \edef\b{\csname\fontname\tenrm\endcsname}%
  495. \ifx\a\b \global\@cmfontstrue \else \global\@cmfontsfalse \fi
  496. }}%
  497. \def\@getpostscriptnames{%
  498. \def\@cmhelv{psmhlv }%
  499. \def\@cmhelvb{psmhlvb }%
  500. \def\@cmtimer{psmtimr }%
  501. \def\@cmtimei{psmtimi }%
  502. \def\@cmtimeb{psmtimb }%
  503. \def\@cmcour{psmcou }%
  504. \def\@cmcouro{psmcouo }%
  505. \def\@cmcourb{psmcoub }%
  506. }%
  507. \def\@chooseheaderfonts
  508. {%
  509. \ifx\@headerfonts\@memopaper%
  510. \else\ifx\@headerfonts\@lafonts
  511. \font\@booksix=book6%
  512. \font\@memotwentyeight=memo28%
  513. \font\@latwentyeight=la28%
  514. \font\@spectwelve=spec12%
  515. \else\ifx\@headerfonts\@texfonts
  516. \if@cmfonts
  517. \font\@booksix=cmr6%
  518. \font\@latwentyeight=cmbx10 scaled\magstep5%
  519. \font\@memotwentyeight=cmbx10 scaled\magstep5%
  520. \font\@spectwelve=cmss10 scaled\magstep1%
  521. \else
  522. \font\@booksix=amr6%
  523. \font\@latwentyeight=ambx10 scaled\magstep5%
  524. \font\@memotwentyeight=ambx10 scaled \magstep5%
  525. \font\@spectwelve=amss10 scaled\magstep1%
  526. \fi
  527. \else\ifx\@headerfonts\@postscript
  528. \font\@booksix=\@cmhelv at 6pt%
  529. \font\@latwentyeight=\@cmhelvb at 29pt%
  530. \font\@memotwentyeight=\@cmhelvb at 28pt%
  531. \font\@spectwelve=\@cmhelv at 10.5pt%
  532. \else%
  533. \def\@todieornottodie{\@errorillegalheaderfont\@exit}%
  534. \fi\fi\fi\fi
  535. \@todieornottodie
  536. }%
  537. \def\@choosebodyfonts
  538. {%
  539. \ifx\@typeface\@tt
  540. \else\ifx\@typeface\@rm
  541. \else
  542. \def\@todieornottodie{\@errorillegaltypeface\@exit}%
  543. \fi\fi
  544. \@todieornottodie
  545. \ifx\@bodyfonts\@texfonts
  546. \if@cmfonts
  547. \font\@classfont=cmss10 scaled \magstep5%
  548. \else
  549. \font\@classfont=amssmc40
  550. \fi
  551. \else\ifx\@bodyfonts\@postscript
  552. \ifcase \@ptsize\relax %
  553. \font\tenrm = \@cmtimer at 10pt %
  554. \font\tentt = \@cmcour at 10pt %
  555. \ifx\@typeface\@tt
  556. \font\tenit = \@cmcouro at 10pt %
  557. \font\tenbf = \@cmcourb at 10pt %
  558. \else\ifx\@typeface\@rm
  559. \font\tenit = \@cmtimei at 10pt %
  560. \font\tenbf = \@cmtimeb at 10pt %
  561. \fi \fi
  562. \or %
  563. \font\elvrm = \@cmtimer at 11pt %
  564. \font\elvtt = \@cmcour at 11pt %
  565. \ifx\@typeface\@tt
  566. \font\elvit = \@cmcouro at 11pt %
  567. \font\elvbf = \@cmcourb at 11pt %
  568. \else\ifx\@typeface\@rm
  569. \font\elvit = \@cmtimei at 11pt %
  570. \font\elvbf = \@cmtimeb at 11pt %
  571. \fi \fi
  572. \or %
  573. \font\twlrm = \@cmtimer at 12pt %
  574. \font\twltt = \@cmcour at 12pt %
  575. \ifx\@typeface\@tt
  576. \font\twlit = \@cmcouro at 12pt %
  577. \font\twlbf = \@cmcourb at 12pt %
  578. \else\ifx\@typeface\@rm
  579. \font\twlit = \@cmtimei at 12pt %
  580. \font\twlbf = \@cmtimeb at 12pt %
  581. \fi \fi
  582. \fi
  583. \else
  584. \def\@todieornottodie{\@errorillegalbodyfont\@exit}%
  585. \fi\fi
  586. \@todieornottodie
  587. }%
  588. \def\@initializefontvariables
  589. {%
  590. \raggedbottom
  591. \@kernheaderwords
  592. \@initializetypefacedependencies
  593. \edef\normalsize
  594. {%
  595. \ifx \@currsize \normalsize
  596. \ifx \@typeface \@tt
  597. \tt
  598. \else \ifx \@typeface \@rm
  599. \rm
  600. \fi \fi
  601. \else 
  602. \@normalsize
  603. \fi
  604. }%
  605. \def\pem{%
  606. \ifdim \fontdimen \@ne \font >\z@
  607. \csname\@typeface\endcsname 
  608. \else
  609. \it
  610. \fi
  611. }%
  612. }%
  613. \def\@kernheaderwords{%
  614. \ifx \@headerfonts \@texfonts
  615. \def\@lanl{%
  616. \raise 1pt\hbox{%
  617. \def\@kern{\kern -.5pt}%
  618. L\@kern o\@kern s\ \kern -2.5pt A\@kern l\@kern a\@kern m\@kern
  619. o\@kern s\ \kern -2pt N\@kern a\@kern t\@kern i\@kern o\@kern
  620. n\@kern a\@kern l\ \kern -3pt L\@kern a\@kern b\@kern o\@kern
  621. r\@kern a\@kern t\@kern o\@kern r\@kern y%
  622. }%
  623. }%
  624. \def\@lanm{%
  625. \def\@kern{\kern -.5pt}%
  626. L\@kern o\@kern s\kern -2.5pt\ A\@kern l\@kern a\@kern m\@kern
  627. o\@kern s\kern -1pt ,\kern -4.5pt\ New\kern -3pt\ Mexico\kern -3pt
  628. \ 87545%
  629. }%
  630. \def\@losalamos{%
  631. Los Alamos%
  632. }%
  633. \def\@memorandum{%
  634. memorandum%
  635. }%
  636. \else \ifx \@headerfonts \@lafonts
  637. \@spectwelve {\setbox0=\hbox{L}\global\@dimentemp=\wd0}%
  638. \ifdim \@dimentemp=5.33684pt
  639. \def\@lanl{%
  640. L\kern -.4pt o\kern .35pt s\ \kern -.8pt 
  641. A\kern .6pt l\kern .1pt a\kern .6pt m\kern .1pt o\kern .35pt s%
  642. \def\@kern{\kern .22pt}%
  643. \ N\@kern a\@kern t\@kern i\@kern o\@kern n\@kern a\kern .47pt
  644. l\ \kern -.2pt 
  645. \def\@kern{\kern .03pt}%
  646. L\@kern a\kern .43pt b\@kern o\@kern r\@kern a\@kern
  647. t\kern -.22pt o\@kern r\@kern y}%
  648. \def\@lanm{%
  649. L\kern -.4pt o\kern .35pt s\ \kern -.8pt 
  650. \def\@kern{\kern .35pt}%
  651. A\kern .6pt l\kern .1pt a\kern .6pt m\kern .1pt o\kern .35pt s,%
  652. \ \kern -1.5pt 
  653. N\kern -.2pt ew\ \kern -.1pt 
  654. \def\@kern{\kern .15pt}%
  655. M\kern -.05pt e\@kern x\@kern i\@kern c\@kern o\ \kern -.1pt 
  656. 8\kern -.65pt 7\kern -.9pt 54\kern -.7pt 5}%
  657. \def\@losalamos{%
  658. \kern -1.2pt L\kern 0pt o\kern -.75pt s\ \kern -6.7pt 
  659. A\kern .25pt l\kern 1.25pt a\kern -.85pt m\kern -.65pt
  660. o\kern -.75pt s}%
  661. \def\@memorandum{memorandum}%
  662. \else
  663. \def\@lanl{%
  664. \raise .3pt\hbox{%
  665. L\kern -.6pt os\ \kern -1.3pt 
  666. \def\@kern{\kern .11pt}%
  667. A\@kern l\@kern a\@kern m\@kern o\@kern s\ National\ %
  668. \def\@kern{\kern -.2pt}%
  669. L\@kern a\@kern b\@kern o\@kern
  670. r\@kern a\@kern t\@kern o\@kern r\@kern y%
  671. }%
  672. }%
  673. \def\@lanm{%
  674. L\kern -.6pt os\ \kern -1.3pt 
  675. \def\@kern{\kern .11pt}%
  676. A\@kern l\@kern a\@kern m\@kern o\@kern s%
  677. \kern -.5pt,\ \kern -1.44pt New \kern -.5pt
  678. \def\@kern{\kern -.2pt}%
  679. M\@kern e\@kern x\@kern i\@kern c\@kern o\ \kern -.5pt 8\@kern
  680. 7\@kern 5\@kern 4\@kern 5%
  681. }%
  682. \def\@losalamos{%
  683. \def\@kern{\kern -.9pt}%
  684. \kern -1.2pt L\kern -.65pt o\@kern s\kern 5pt 
  685. A\kern -.4pt l\kern .3pt a\@kern m\@kern o\@kern s%
  686. }%
  687. \def\@memorandum{%
  688. \def\@kern{\kern -.25pt}%
  689. m\@kern e\@kern m\@kern o\@kern r\kern -.5pt a\@kern n\@kern
  690. d\@kern u\@kern m%
  691. }%
  692. \fi
  693. \else \ifx \@headerfonts \@postscript
  694. \def\@lanl{%
  695. \raise .5pt\hbox{%
  696. Los\kern -2pt\ Alamos\kern -1.5pt\ National\kern -2pt
  697. \ Laboratory%
  698. }%
  699. }%
  700. \def\@lanm{%
  701. \def\@kern{\kern .57pt}%
  702. Los\kern -2pt\ Alamos\kern -1pt,\kern -3.5pt\ N\@kern e\@kern
  703. w\kern -2pt\ M\@kern e\@kern x\@kern i\@kern c\@kern
  704. o\kern -2pt\ 87545%
  705. }%
  706. \def\@PSlosalamos##1##2{%
  707. \@psdeflosalamos
  708. \special{ps:: ##1 ##2 @LOSALAMOS1 @LOSALAMOS2 @LOSALAMOS3}}%
  709. \def\@memorandum{%
  710. \def\@kern{\kern -2pt}%
  711. m\@kern e\@kern m\@kern o\@kern r\kern 1pt \@kern 
  712. a\@kern n\@kern d\@kern u\@kern m%
  713. }%
  714. \fi \fi \fi
  715. }%
  716. \def\@initializetypefacedependencies{%
  717. \ifx \@typeface \@tt
  718. \rightskip=0pt plus 3.6em%
  719. \@rightskip=\rightskip
  720. \hyphenchar\nintt=\defaulthyphenchar
  721. \hyphenchar\tentt=\defaulthyphenchar
  722. \hyphenchar\elvtt=\defaulthyphenchar
  723. \hyphenchar\twltt=\defaulthyphenchar
  724. \ifx \@bodyfonts \@texfonts
  725. \def\@bullet{\leavevmode\raise-.22ex\hbox to 0pt{+\hss}o}%
  726. \else \ifx \@bodyfonts \@postscript
  727. \def\@bullet{\leavevmode\raise-.19ex\hbox to 0pt{+\hss}o}%
  728. \fi \fi
  729. \fi
  730. \@initializelists
  731. }%
  732. \def\@initializelists{%
  733. \ifx \@typeface \@tt
  734. \parskip=\baselineskip
  735. {\setbox0=\hbox{\tt x}\global\@dimenwdtt=\wd0}%
  736. \leftmargini 4\@dimenwdtt
  737. \leftmarginii 4\@dimenwdtt
  738. \leftmarginiii 4\@dimenwdtt
  739. \leftmarginiv 4\@dimenwdtt
  740. \leftmarginv 4\@dimenwdtt
  741. \leftmarginvi 4\@dimenwdtt
  742. \leftmargin\leftmargini
  743. \labelwidth\leftmargini\advance\labelwidth-\labelsep
  744. \labelsep=\@dimenwdtt
  745. \parsep=\baselineskip
  746. \topsep 0pt
  747. \itemsep 0pt
  748. \descriptionmargin=5\@dimenwdtt
  749. \@dimentemp=\@dimenwdtt
  750. \else\ifx \@typeface \@rm
  751. \parskip=.7em
  752. \def\@bullet{$\bullet$}%
  753. \leftmargini 2.5em
  754. \leftmarginii 2.2em %
  755. \leftmarginiii 1.87em %
  756. \leftmarginiv 1.7em %
  757. \leftmarginv 1em
  758. \leftmarginvi 1em
  759. \leftmargin\leftmargini
  760. \labelwidth\leftmargini\advance\labelwidth-\labelsep
  761. \labelsep 5pt
  762. \topsep .4em
  763. \parsep .4em
  764. \itemsep .2em
  765. \descriptionmargin=3em
  766. \@dimentemp=5pt
  767. \fi \fi
  768. \listparindent=0pt
  769. \let\@listi\relax
  770. \def\@listii{\leftmargin\leftmarginii
  771. \labelwidth\leftmarginii\advance\labelwidth-\labelsep}%
  772. \def\@listiii{\leftmargin\leftmarginiii
  773. \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
  774. \ifx \@typeface \@rm
  775. \topsep .2em 
  776. \itemsep \topsep
  777. \fi}%
  778. \def\@listiv{\leftmargin\leftmarginiv
  779. \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}%
  780. \def\@listv{\leftmargin\leftmarginv
  781. \labelwidth\leftmarginv\advance\labelwidth-\labelsep}%
  782. \def\@listvi{\leftmargin\leftmarginvi
  783. \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}%
  784. \@dimenversemargin=3\@dimentemp
  785. \def\verse{\let\\=\@centercr
  786. \list{}{\itemsep\z@ \itemindent -\@dimenversemargin \listparindent \itemindent
  787. \rightmargin\leftmargin\advance\leftmargin \@dimenversemargin}\item[]}%
  788. \let\endverse\endlist
  789. \def\quotation{\list{}{%
  790. \rightmargin\leftmargin}\item[]}%
  791. \let\endquotation=\endlist
  792. \tabcolsep \@dimentemp %
  793. \tabbingsep \labelsep %
  794. \def\labelenumi{\arabic{enumi}.}%
  795. \def\theenumi{\arabic{enumi}}%
  796. \def\labelenumii{\alph{enumii}.}%
  797. \def\theenumii{\alph{enumii}}%
  798. \def\p@enumii{\theenumi}%
  799. \def\labelenumiii{(\arabic{enumiii})}%
  800. \def\theenumiii{\roman{enumiii}}%
  801. \def\p@enumiii{\theenumi(\theenumii)}%
  802. \def\labelenumiv{(\alph{enumiv})}%
  803. \def\theenumiv{\Alph{enumiv}}%
  804. \def\p@enumiv{\p@enumiii\theenumiii}%
  805. \def\labelitemi{\@bullet}%
  806. \def\labelitemii{-}%
  807. \def\labelitemiii{*}%
  808. \def\labelitemiv{+}%
  809. \def\quote{\list{}{\rightmargin\leftmargin}\item[]}%
  810. \let\endquote=\endlist
  811. \def\descriptionlabel##1{\hspace\labelsep \it ##1}%
  812. \def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
  813. \let\makelabel\descriptionlabel}}%
  814. \let\enddescription\endlist
  815. }%
  816. \def\@initializeheadervariables{%
  817. \let\@texttop=\relax
  818. \def\ps@firstpage{\let\@mkboth\@gobbletwo
  819. \def\@oddhead{\@makeclassheader\@printclasspage}%
  820. \def\@oddfoot{}}%
  821. \def\ps@pagetwo{\let\@mkboth\@gobbletwo
  822. \def\@oddhead{%
  823. \@printpagetwoheader\@printpagenum\@printclasspage}%
  824. \def\@oddfoot{}}%
  825. \thispagestyle{firstpage}%
  826. \pagestyle{pagetwo}%
  827. \ifnum\@countthru=0
  828. \@countleftcolon=77
  829. \@countrightcolon=406
  830. \else
  831. \@countleftcolon=80
  832. \@countrightcolon=404
  833. \fi
  834. \ifnum\@countthru=0 \@dimenspacetosubject=209pt
  835. \else \@dimenspacetosubject=233pt
  836. \fi
  837. \@advcountbydimen\@countverticalposition\@dimenmemopapervcorr
  838. \advance\@dimenspacetosubject by \@dimenmemopapervcorr
  839. \@advcountbydimen\@countleftcolon\@dimenmemopaperhcorr
  840. \@advcountbydimen\@countrightcolon\@dimenmemopaperhcorr
  841. \@countleftheader=\@countleftcolon
  842. \@countrightheader=\@countrightcolon
  843. \@advcountbydimen\@countleftheader\@dimenspaceaftercolon
  844. \@advcountbydimen\@countrightheader\@dimenspaceaftercolon
  845. \oddsidemargin=\@countleftcolon pt
  846. \advance \oddsidemargin by -1in
  847. \advance \oddsidemargin by \@dimenspaceaftercolon
  848. \evensidemargin=\oddsidemargin
  849. }%
  850. \def\@makeclassheader
  851. {%
  852. \@ifundefined{@classlabel}{\gdef\@classlabel{}}{}%
  853. \ifx\@bodyfonts\@postscript
  854. \@makePSclassheader
  855. \else
  856. \ifx \@classlabel \@empty
  857. \global\setbox\@boxclasspage=\hbox{\hbox to 0pt{\hss\hss}}%
  858. \else
  859. \global\setbox\@boxclasspage=\hbox{\hbox to 0pt{\hss
  860. \begin{picture}(0,0)(\@countleftheader,0)%
  861. {%
  862. \@classfont
  863. \@counttemp=-\@countclasssep
  864. \put (0,\@counttemp)%
  865. {\makebox(0,0)[tl]{\hbox to 8.5in{\hfil\@classlabel\hfil}}}%
  866. \advance\@counttemp by 795 %
  867. \put (0,-\@counttemp)%
  868. {\makebox(0,0)[bl]{\hbox to 8.5in{\hfil\@classlabel\hfil}}}%
  869. }%
  870. \end{picture}%
  871. \hss}}%
  872. \fi \fi
  873. }%
  874. \gdef\@psdeflosalamos{%
  875. \special{ps::[local]%
  876. /@LOSALAMOS1 {
  877. /VirginState save def
  878. /Helvetica-Bold findfont [ 27.7 0 0 29 0 0 ] makefont setfont
  879. /YC exch neg def %
  880. /XC exch def %
  881. } def
  882. }%
  883. \special{ps::[local]%
  884. /@LOSALAMOS2 {
  885. /MV {moveto} def
  886. /SO {false charpath stroke} def
  887. .5 setlinewidth
  888. XC 87.8 add YC 721 add translate
  889. } def
  890. }%
  891. \special{ps::[local]%
  892. /@LOSALAMOS3 {
  893. 0 0 MV (L) SO
  894. 15.9 0 MV (o) SO
  895. 31.8 0 MV (s) SO
  896. 51.3 0 MV (A) SO
  897. 70.2 0 MV (l) SO
  898. 77 0 MV (a) SO
  899. 91.4 0 MV (m) SO
  900. 115 0 MV (o) SO
  901. 130.9 0 MV (s) SO
  902. VirginState restore
  903. } def
  904. }%
  905. }%
  906. \def\@psdefclasslabel{%
  907. \specialbop{ps::[global]%
  908. /@CLASSOVERLAY1 {
  909. /VirginState save def
  910. dup (SECRET) eq
  911. {/Dist 36 def /Space 3.5 def /X 272 def } %
  912. {/Dist 24 def /Space 3 def /X 242 def } %
  913. ifelse
  914. /Label exch def
  915. } def
  916. }%
  917. \specialbop{ps::[global]%
  918. /@CLASSOVERLAY2 {
  919. /Print { gsave Space 0 Label ashow grestore } def
  920. /DoubPrint { Print StrikeWidth 0 rmoveto Print } def
  921. /Scale .415888 def %
  922. /StrikeWidth 1.5 def %
  923. } def
  924. }%
  925. \specialbop{ps::[global]%
  926. /@CLASSOVERLAY3 {
  927. /Helvetica-Bold findfont [29 Scale mul 0 0 29 0 0] makefont setfont
  928. X 770 Dist sub moveto
  929. DoubPrint
  930. X Dist moveto
  931. DoubPrint
  932. VirginState restore
  933. } def
  934. }%
  935. }%
  936. \def\@makePSclassheader{%
  937. \gdef\@PSclasslabel##1{%
  938. \special{ps:: ##1 @CLASSOVERLAY1 @CLASSOVERLAY2 @CLASSOVERLAY3}}%
  939. }%
  940. \def\@makepagetwoheader
  941. {%
  942. \@pullpagetwoheader{\@toksto}%
  943. \savebox{\@boxpagetwoheader}%
  944. {%
  945. \begin{minipage}[b]{\textwidth}%
  946. \normalsize
  947. \rule{0pt}{72pt}\rule{0pt}{-\ht\strutbox}%
  948. \parbox[t]{\@dimenpagetwoheader}%
  949. {%
  950. \the\@toksheaderone\copy\strutbox
  951. \@notvoidtoks\@toksheadertwo
  952. \if@notvoidtoks \newline \the\@toksheadertwo\copy\strutbox \fi
  953. \ifx \@serialnumber \@empty
  954. \else
  955. \ifhmode \newline \fi \@symbolserialnumber\copy\strutbox
  956. \fi
  957. }%
  958. \copy\strutbox\hfill
  959. \makebox[\@dimenpagetwoheader][r]{\hfil\@date}%
  960. \end{minipage}%
  961. }%
  962. \@dimentoppagetwo=\ht\@boxpagetwoheader
  963. \advance\@dimentoppagetwo by 4\baselineskip
  964. \advance\@dimentoppagetwo by -\dp\strutbox
  965. }%
  966. \def\@printclasspage{%
  967. \ifx\@bodyfonts\@postscript
  968. \ifx \@classlabel \@empty
  969. \else
  970. \@PSclasslabel{(\@classlabel)}%
  971. \fi
  972. \vbox to 0in{}\hss
  973. \else
  974. \vbox to 0in{\hbox to 0pt{\usebox{\@boxclasspage}\hss}\vss}\hss
  975. \fi
  976. }%
  977. \def\@printpagetwoheader{%
  978. \vbox to 0in{\hbox to 0pt{\usebox{\@boxpagetwoheader}\hss}\vss}%
  979. }%
  980. \def\@printpagenum{%
  981. \vbox to 0pt{\hbox to 0pt{%
  982. \begin{minipage}[b]{\textwidth}%
  983. \normalsize
  984. \rule{0pt}{72pt}\rule{0pt}{-\ht\strutbox}%
  985. \hfil{- \thepage\ -}\hfil
  986. \end{minipage}%
  987. \hss}\vss}%
  988. }%
  989. \def\@pullpagetwoheader#1{\begingroup
  990. \@gettoksheader{#1}%
  991. \global\@toksheaderone=\expandafter{\the\@toksbeforecomma}%
  992. \if@newline
  993. \@toksremaining=\@toksafternewline
  994. \@gettoksheader{\@toksremaining}%
  995. \global\@toksheadertwo=\expandafter{\the\@toksbeforecomma}%
  996. \fi
  997. \endgroup
  998. }%
  999. \def\@gettoksheader#1{\@tonewlinepull{#1}%
  1000. \if@newline\@tocommapull{\@toksbeforenewline}%
  1001. \else \@tocommapull{#1}\fi}%
  1002. \def\@beginmemo{%
  1003. \@ifundefined{@shortmemostyle}%
  1004. {%
  1005. \ifnum \@countreference = 0
  1006. \@dimentemp=2\baselineskip
  1007. \advance\@dimentemp by -\parskip
  1008. {\parskip=\@dimentemp \leavevmode \par \leavevmode}%
  1009. \fi
  1010. \par
  1011. }%
  1012. {%
  1013. \ifx \@typeface \@tt
  1014. \topsep=\baselineskip
  1015. \baselineskip=2\baselineskip
  1016. \parindent=5\@dimenwdtt
  1017. \leftmargini=7\@dimenwdtt
  1018. \else \ifx \@typeface \@rm
  1019. \@parskipsave=\parskip
  1020. \advance\baselineskip by \parskip
  1021. \parindent=2.5em
  1022. \leftmargini=3.5em
  1023. \topsep=1.2em
  1024. \parsep=.6em
  1025. \itemsep=.6em
  1026. \fi \fi
  1027. \parskip=0pt
  1028. \leftmargin=\leftmargini
  1029. \par\leavevmode
  1030. \par
  1031. }%
  1032. }%
  1033. \def\@clearclosing{%
  1034. \edef\@tempa{\@toplist\@botlist\@deferlist}%
  1035. \ifx\@tempa\@empty\else\clearpage\fi
  1036. }%
  1037. \def\@endmemo{%
  1038. \@ifundefined{@shortmemostyle}%
  1039. {}%
  1040. {%
  1041. \par
  1042. \ifnum \thepage > 1
  1043. \@errorshortmemo
  1044. \fi
  1045. \parindent=0em
  1046. \ifx \@typeface \@tt
  1047. \baselineskip=.5\baselineskip
  1048. \parskip=\baselineskip
  1049. \else \ifx \@typeface \@rm
  1050. \parskip=\@parskipsave
  1051. \advance\baselineskip by -\parskip
  1052. \fi \fi
  1053. \leavevmode \par
  1054. }%
  1055. \topsep=0pt
  1056. \itemsep=0pt
  1057. \parsep=0pt
  1058. }%
  1059. \def\@printfirstpageheader
  1060. {%
  1061. \normalsize
  1062. \begin {picture}(0,0)(\@countleftheader,\@countverticalposition)%
  1063. \ifx\@headerfonts\@memopaper
  1064. \else
  1065. \@printmemopaper
  1066. \fi
  1067. \@printfirstpageheaderinfo
  1068. \end{picture}%
  1069. \normalsize
  1070. \@printsubject
  1071. \@printreference
  1072. }%
  1073. \def\@printmemopaper
  1074. {%
  1075. \ifx\@headerfonts\@postscript
  1076. \@dimentemp=\@dimenmemopaperhcorr
  1077. \ifnum\@countthru=0\else\advance\@dimentemp by 3pt\fi
  1078. \@counttemp=\@dimentemp
  1079. \divide\@counttemp by 65536
  1080. \@counttemptwo=\@dimenmemopapervcorr
  1081. \divide\@counttemptwo by 65536
  1082. \@PSlosalamos{\the\@counttemp }{\the\@counttemptwo }%
  1083. \else
  1084. \@latwentyeight
  1085. \put (\@countleftheader,-71){\@losalamos}%
  1086. \fi
  1087. \@spectwelve
  1088. \put (\@countleftheader,-88){\@lanl}%
  1089. \put (\@countleftheader,-98){\@lanm}%
  1090. \@memotwentyeight
  1091. \put (524,-98){\makebox(0,0)[br]{\@memorandum}}%
  1092. \put (0,-105){\line(1,0){614}}%
  1093. \@booksix
  1094. \put (\@countleftcolon,-138){\makebox(0,0)[br]{TO:}}%
  1095. \put (\@countrightcolon,-138){\makebox(0,0)[br]{DATE:}}%
  1096. \put (\@countrightcolon,-162){\makebox(0,0)[br]{MAIL STOP/TELEPHONE:}}%
  1097. \ifnum\@countthru=0
  1098. {%
  1099. \put (\@countleftcolon,-162){\makebox(0,0)[br]{FROM:}}%
  1100. \put (\@countleftcolon,-186){\makebox(0,0)[br]{SYMBOL:}}%
  1101. \put (\@countleftcolon,-210){\makebox(0,0)[br]{SUBJECT:}}%
  1102. }%
  1103. \else
  1104. {%
  1105. \put (\@countleftcolon,-162){\makebox(0,0)[br]{THRU:}}%
  1106. \put (\@countleftcolon,-210){\makebox(0,0)[br]{FROM:}}%
  1107. \put (\@countleftcolon,-234){\makebox(0,0)[br]{SUBJECT:}}%
  1108. \put (\@countrightcolon,-210){\makebox(0,0)[br]{SYMBOL:}}%
  1109. }%
  1110. \fi
  1111. }%
  1112. \def\@printfirstpageheaderinfo
  1113. {%
  1114. \normalsize
  1115. \sbox{\@boxtemp}%
  1116. {\begin{minipage}[t]{\@dimenfirstpageleftheader}%
  1117. \raggedright \baselineskip=12pt \the\@toksto \end{minipage}}%
  1118. \put(\@countleftheader,-138){\usebox{\@boxtemp}}%
  1119. \ifdim\dp\@boxtemp > 18pt
  1120. \@erroroverfull{TO}{2}%
  1121. \fi
  1122. \put (\@countrightheader,-138){\@date{}}%
  1123. \put (\@countrightheader,-162){%
  1124. \@mailstop
  1125. \ifx\@mailstop\@empty
  1126. \else
  1127. \ifx\@telephone\@empty
  1128. \else
  1129. /\relax
  1130. \fi \fi
  1131. \@telephone}%
  1132. \ifnum\@countthru=0
  1133. \sbox{\@boxtemp}%
  1134. {\begin{minipage}[t]{\@dimenfirstpageleftheader}%
  1135. \raggedright \baselineskip=12pt \the\@toksfrom
  1136. \end{minipage}}%
  1137. \put (\@countleftheader,-162){\usebox{\@boxtemp}}%
  1138. \ifdim\dp\@boxtemp > 18pt
  1139. \@erroroverfull{FROM}{2}%
  1140. \fi
  1141. \put (\@countleftheader,-186){\@symbolserialnumber}%
  1142. \else
  1143. \sbox{\@boxtemp}%
  1144. {\begin{minipage}[t]{\@dimenfirstpageleftheader}%
  1145. \raggedright \baselineskip=12pt\the\@toksthru
  1146. \end{minipage}}%
  1147. \put (\@countleftheader,-162){\usebox{\@boxtemp}}%
  1148. \ifdim\dp\@boxtemp > 42pt
  1149. \@erroroverfull{THRU}{4}%
  1150. \fi
  1151. \sbox{\@boxtemp}%
  1152. {\begin{minipage}[t]{\@dimenfirstpageleftheader}%
  1153. \raggedright \baselineskip=12pt\the\@toksfrom
  1154. \end{minipage}}%
  1155. \put (\@countleftheader,-210){\usebox{\@boxtemp}}%
  1156. \ifdim\dp\@boxtemp > 18pt
  1157. \@erroroverfull{FROM}{2}%
  1158. \fi
  1159. \put (\@countrightheader,-210){\@symbolserialnumber}%
  1160. \fi
  1161. }%
  1162. \def\@printsubject{%
  1163. \newline
  1164. \vrule height\the\@dimenspacetosubject width0pt
  1165. \@subject
  1166. \ifnum\@countreference=0
  1167. \else
  1168. \leavevmode \par
  1169. \fi
  1170. }%
  1171. \def\@printreference
  1172. {%
  1173. \ifnum\@countreference=0
  1174. \else
  1175. \ifnum \@countreference=1
  1176. REFERENCE:\relax
  1177. \else
  1178. REFERENCES:\relax
  1179. \fi
  1180. \par\vspace{-\baselineskip}%
  1181. \begin{list}{\ifnum \@countreference=1\else\arabic{@countlist}.\fi}%
  1182. {%
  1183. \topsep=0pt
  1184. \itemsep=0pt
  1185. \parsep=0pt
  1186. \ifnum \@countreference=1
  1187. \settowidth\leftmargin{REFERENCE\@: }%
  1188. \else
  1189. \settowidth\leftmargin{REFERENCES\@: }%
  1190. \fi
  1191. \@setnumdefaults\@countreference
  1192. }%
  1193. \@printnumberedlist{\@toksreference}%
  1194. \end{list}%
  1195. \fi
  1196. }%
  1197. \def\@printsignature
  1198. {%
  1199. \par
  1200. \@ifemptyorundefined{@signature}{}%
  1201. {%
  1202. {\parskip=0pt\par\ }%
  1203. \vspace*{2\baselineskip}\newline
  1204. \@signature
  1205. }%
  1206. }%
  1207. \def\@printoriginatorline
  1208. {%
  1209. \@ifemptyorundefined{@signature}{\nopagebreak}{}%
  1210. \par
  1211. \ifx\@signer\@empty
  1212. \else
  1213. \@signer
  1214. \ifx\@originator\@empty
  1215. \ifx\@typist\@empty \else :\relax \fi
  1216. \else
  1217. -\relax
  1218. \fi
  1219. \fi
  1220. \ifx\@originator\@empty
  1221. \else
  1222. \@originator
  1223. \ifx\@typist\@empty \else :\relax \fi
  1224. \fi
  1225. \ifx\@typist\@empty
  1226. \else
  1227. \@typist
  1228. \fi
  1229. }%
  1230. \def\@printapproval
  1231. {%
  1232. \@ifemptyorundefined{@approval}{}%
  1233. {%
  1234. {%
  1235. \samepage
  1236. \settowidth\@lengthlabel{APPROVED BY:}%
  1237. \addtolength\@lengthlabel\labelsep%
  1238. \@lengthrule=\textwidth
  1239. \addtolength\@lengthrule{-\@lengthlabel}%
  1240. \addtolength\@lengthrule{-30pt}%
  1241. \settowidth\@lengthdate{date}%
  1242. \addtolength\@lengthdate{60pt}%
  1243. \@lengthname=\@lengthrule%
  1244. \addtolength\@lengthname{-\@lengthdate}%
  1245. {\parskip=0pt\par\ }%
  1246. \vspace*{2\baselineskip}\newline
  1247. \relax APPROVED BY:\hskip\labelsep
  1248. \rule{\@lengthrule}{0.4pt}%
  1249. \copy\strutbox
  1250. {\offinterlineskip\newline}%
  1251. \hspace*{\@lengthlabel}\parbox[t]{\@lengthname}%
  1252. {\@approval\ \copy\strutbox}%
  1253. \makebox[\@lengthdate][c]{date}%
  1254. \par
  1255. }%
  1256. }%
  1257. }%
  1258. \def\@printenc
  1259. {%
  1260. \@ifundefined{@encas}{}{%
  1261. \ifnum\@countenc=0
  1262. \par Enc.\ a/s%
  1263. \else \@erroras\enc\encas{Enc. a/s}%
  1264. \fi}%
  1265. \ifnum\@countenc=0
  1266. \else
  1267. \par
  1268. \@ifundefined{@encpagebreak}{}{\pagebreak}%
  1269. \ifnum\@countenc=1
  1270. Enclosure:\relax
  1271. \else
  1272. Enc.\relax
  1273. \fi
  1274. \nopagebreak
  1275. \par\vspace{-\baselineskip}%
  1276. \@countmemolist=\@countenc
  1277. \begin{list}{\ifnum \@countenc=1\else\arabic{@countlist}.\fi}%
  1278. {%
  1279. \ifnum\@countenc=1
  1280. \settowidth\leftmargin{Enclosure: }%
  1281. \else
  1282. \settowidth\leftmargin{Enc.\ }%
  1283. \fi
  1284. \@setnumdefaults\@countenc
  1285. }%
  1286. \@printnumberedlist{\@toksenc}%
  1287. \end{list}%
  1288. \fi
  1289. }%
  1290. \def\@printattachments
  1291. {%
  1292. \@ifundefined{@attachmentas}%
  1293. {\@ifundefined{@attachmentsas}{}%
  1294. {\ifnum\@countattachments=0
  1295. \par Attachments a/s%
  1296. \else \@erroras\attachments\attachmentsas{Attachments a/s}\fi}}%
  1297. {\@ifundefined{@attachmentsas}%
  1298. {\ifnum\@countattachments=0
  1299. \par Attachment a/s%
  1300. \else\@erroras\attachments\attachmentas{Attachment a/s}\fi}%
  1301. {\par Attachments a/s%
  1302. \@erroras\attachmentas\attachmentsas{Attachment a/s}}}%
  1303. \ifnum\@countattachments=0
  1304. \else
  1305. \par
  1306. \@ifundefined{@attachmentspagebreak}{}{\pagebreak}%
  1307. \ifnum\@countattachments=1
  1308. Attachment:\relax
  1309. \else
  1310. Attachments:\relax
  1311. \fi
  1312. \@countmemolist=\@countattachments
  1313. \begin{list}{\ifnum \@countattachments=1\else\arabic{@countlist}.\fi}%
  1314. {%
  1315. \leftmargin=0pt
  1316. \@setnumdefaults\@countattachments
  1317. }%
  1318. \@printnumberedlist{\@toksattachments}%
  1319. \end{list}%
  1320. \fi
  1321. }%
  1322. \def\@printdistribution
  1323. {%
  1324. \ifnum\@countdistribution=0
  1325. \else
  1326. \par
  1327. \@ifundefined{@distributionpagebreak}{}{\pagebreak}%
  1328. {\offinterlineskip Distribution:\copy\strutbox}%
  1329. \@countmemolist=\@countdistribution
  1330. \begin{list}{}%
  1331. {%
  1332. \parskip=0pt
  1333. \labelwidth=0pt
  1334. \labelsep=0pt
  1335. \leftmargin=0pt
  1336. }%
  1337. \item\the\@toksdistribution
  1338. \end{list}%
  1339. \fi
  1340. }%
  1341. \def\@printcy
  1342. {%
  1343. \ifnum\@countcy=0
  1344. \else
  1345. \pagebreak[0]%
  1346. \par
  1347. \@ifundefined{@cypagebreak}{}{\pagebreak}%
  1348. \begin{list}{Cy:\hfill}%
  1349. {%
  1350. \settowidth\labelwidth{Cy: }%
  1351. \leftmargin=\labelwidth
  1352. \labelsep=0pt
  1353. }%
  1354. \item\the\@tokscy
  1355. \end{list}%
  1356. \fi
  1357. }%
  1358. \def\@setnumdefaults#1{%
  1359. \ifnum #1=1
  1360. \labelwidth=0pt%
  1361. \labelsep=0pt
  1362. \else
  1363. \usecounter{@countlist}%
  1364. \ifnum #1<10
  1365. \settowidth\labelwidth{8.}%
  1366. \else
  1367. \settowidth\labelwidth{88.}%
  1368. \fi\fi
  1369. \addtolength\leftmargin\labelwidth
  1370. \addtolength\leftmargin\labelsep
  1371. \parskip=0pt
  1372. }%
  1373. \def\@printnumberedlist#1%
  1374. {%
  1375. \@toksremaining=#1%
  1376. \loop
  1377. \@tonewlinepull{\@toksremaining}%
  1378. \@toksnotequal\@toksbeforenewline\@toksempty
  1379. \if@toksnotequal
  1380. \@toksitem=\@toksbeforenewline
  1381. \@toksremaining=\@toksafternewline
  1382. \ifx #1\@toksreference%
  1383. \item\uppercase\expandafter{\the\@toksitem}%
  1384. \else
  1385. \item\the\@toksitem
  1386. \fi
  1387. \repeat
  1388. }%
  1389. \def\@tonewlinepull#1{\begingroup\let\\=\relax
  1390. \expandafter\@tonewlinepullone\the#1\\\@empty
  1391. \if@newline\expandafter\@tonewlinepullthree\the#1\@empty
  1392. \else\fi\endgroup}%
  1393. \def\@tonewlinepullone#1\\{\global\@toksbeforenewline={#1}%
  1394. \futurelet\next\@tonewlinepulltwo}%
  1395. \def\@tonewlinepulltwo#1\@empty{\global\@toksafternewline={#1}%
  1396. \ifx\@empty\next\global\@newlinefalse
  1397. \else\global\@newlinetrue\fi}%
  1398. \def\@tonewlinepullthree#1\\{\global\@toksbeforenewline={#1}%
  1399. \futurelet\next\@tonewlinepullfour}%
  1400. \def\@tonewlinepullfour#1\@empty{\global\@toksafternewline={#1}%
  1401. \ifx\@empty\next\global\@newlinefalse
  1402. \else\global\@newlinetrue\fi}%
  1403. \def\@tocommapull#1{\expandafter\@tocommapullone\the#1,\@empty}%
  1404. \def\@tocommapullone#1,{\@toksbeforecomma={#1}%
  1405. \futurelet\next\@tocommapulltwo}%
  1406. \def\@tocommapulltwo#1\@empty{\ifx\@empty\next \@commafalse
  1407. \else \@commatrue \fi}%
  1408. \def\@unspaceleft#1{{%
  1409. \def\@macroname{#1}%
  1410. \ifx #1\@empty 
  1411. \else
  1412. \ifx #1\@blank
  1413. \global\expandafter\def\@macroname{}%
  1414. \else
  1415. \expandafter\@unspaceleftone#1\relax\relax\@empty
  1416. \fi \fi
  1417. }}%
  1418. \def\@unspaceleftone#1#2\relax{%
  1419. \global\expandafter\def\@macroname{#1#2}%
  1420. \@unspacelefttwo}%
  1421. \def\@unspacelefttwo#1\@empty{}%
  1422. \def\@upperunspaceleft#1{{%
  1423. \def\@macroname{#1}%
  1424. \ifx #1\@empty 
  1425. \else
  1426. \ifx #1\@blank
  1427. \global\expandafter\def\@macroname{}%
  1428. \else
  1429. \expandafter\@upperunspaceleftone#1\relax\relax\@empty
  1430. \fi \fi
  1431. }}%
  1432. \def\@upperunspaceleftone#1#2\relax{%
  1433. \global\expandafter\def\@macroname{\uppercase{#1#2}}%
  1434. \@unspacelefttwo}%
  1435. \def\@unspaceright#1{{%
  1436. \def\@macroname{#1}%
  1437. \edef\@temp{#1}%
  1438. \expandafter\@unspacerightone#1\relax{} \relax\@empty
  1439. }}%
  1440. \def\@unspacerightone#1 \relax{%
  1441. \global\expandafter\edef\@macroname{#1}%
  1442. \futurelet\next\@unspacerighttwo}%
  1443. \def\@unspacerighttwo#1\@empty{%
  1444. \ifx \@empty\next
  1445. \global\expandafter\edef\@macroname{\@temp}%
  1446. \fi
  1447. }%
  1448. \def\@addtotoks#1#2{#1=\expandafter{\the#1#2}}%
  1449. \def\@addtokstotoks#1#2{{\edef\deftemp{\the#1\the#2}%
  1450. \global#1=\expandafter{\deftemp}}}%
  1451. \long\def\@ifemptyorundefined#1#2#3{%
  1452. \expandafter\ifx\csname#1\endcsname\relax#2
  1453. \else\expandafter\ifx\csname#1\endcsname\@empty#2
  1454. \else\expandafter\ifx\csname#1\endcsname\@blank#2
  1455. \else#3\fi\fi\fi}
  1456. \def\@ifnoinfo#1#2#3{\def\@deftemp{#1}%
  1457. \ifx\@deftemp\@empty#2\else\ifx\@deftemp\@blank#2\else#3\fi\fi}
  1458. \def\@toksnotequal#1#2{\begingroup \edef\one{\the#1} \edef\two{\the#2}%
  1459. \ifx\one\two\global\@toksnotequalfalse\else\global\@toksnotequaltrue\fi
  1460. \endgroup}%
  1461. \def\@advcountbydimen#1#2{\@counttemp=#2%
  1462. \divide\@counttemp by 65536 \advance#1by \@counttemp}%
  1463. \def\@notvoidtoks#1{\@addtotoks{#1}{\@empty}%
  1464. \expandafter\@notvoidtoksone\the#1}%
  1465. \def\@notvoidtoksone{\futurelet\next\@notvoidtokstwo}%
  1466. \def\@notvoidtokstwo#1\@empty{\ifx \@empty\next \@notvoidtoksfalse
  1467. \else \@notvoidtokstrue \fi}%
  1468. \def\@eightspaces{\space\space\space\space\space\space\space\space}%
  1469. \def\@errorundeclared#1{\typeout{^^JWarning: you have not called \protect #1
  1470. before calling \protect\opening.^^J}%
  1471. }%
  1472. \def\@errorserialnosymbol{\typeout{^^JWarning: you have called 
  1473. \protect\serialnumber, but you have not called \protect\symbol.^^J}%
  1474. \@errorshowexample{\symbol}{C-2}}%
  1475. \def\@erroroverfull#1#2{\typeout{^^JWarning: You have printed more than #2
  1476. lines in the #1 portion ^^J
  1477. \@eightspaces of the memo header.^^J}}%
  1478. \def\@errorshowexample#1#2{\typeout{\@eightspaces\space For example, use^^J^^J
  1479. \@eightspaces\protect #1{#2}^^J}}%
  1480. \def\@errorclassargument{%
  1481. \typeout{^^JFatal error: \protect\classlabel{\@classlabel} 
  1482. calls for an invalid classification label.^^J}%
  1483. \@errorclassmessage
  1484. }%
  1485. \def\@errortwoclasses{%
  1486. \typeout{^^JFatal error: you have called \protect\classlabel \space
  1487. more than once.^^J^^J
  1488. \space You are only allowed to declare one classification label
  1489. per memo.^^J}%
  1490. \@errorclassmessage
  1491. }%
  1492. \def\@errorclassmessage{%
  1493. \typeout{%
  1494. \space\space To print CONFIDENTIAL on the top and bottom
  1495. of your memo,^^J
  1496. \space use \protect\classlabel{c}^^J^^J
  1497. \space To print SECRET on the top and bottom
  1498. of your memo,^^J
  1499. \space use \protect\classlabel{s}^^J^^J
  1500. \space To print UNCLASSIFIED on the top and bottom
  1501. of your memo,^^J
  1502. \space use \protect\classlabel{u}^^J^^J
  1503. \space If you do not want a classification label on your memo,^^J
  1504. \space use \protect\classlabel{}^^J
  1505. \space or do not use the \protect\classlabel\space command.^^J^^J
  1506. \space Change your file, and rerun LaTeX.^^J}%
  1507. }%
  1508. \def\@errorillegaltypeface{%
  1509. \typeout{^^JFatal error: \protect\typeface{\@typeface} calls for an invalid
  1510. typeface.^^J^^J
  1511. \space Use \protect\typeface{tt} or \protect\typeface{rm}^^J^^J
  1512. \space Change your file, and rerun LaTeX.^^J}}%
  1513. \def\@errorillegalheaderfont{\def\@fontcommand{\protect\headerfonts}%
  1514. \def\@fontarg{\@headerfonts}%
  1515. \typeout{^^JFatal error: \@fontcommand{\@fontarg} calls for 
  1516. an invalid font.^^J^^J
  1517. \space Use \@fontcommand{lafonts}, \@fontcommand{texfonts},^^J
  1518. \space or \@fontcommand{postscript}\space
  1519. depending on what fonts^^J \space are available on your machine.^^J^^J
  1520. \space Using \@fontcommand{} will give you the default fonts.^^J^^J
  1521. \space Use \@fontcommand{memopaper} if you wish to print your memo^^J
  1522. \space on pre-printed memo paper.^^J^^J
  1523. \space Change your file, and rerun LaTeX.^^J}}%
  1524. \def\@errorillegalbodyfont{\def\@fontcommand{\protect\bodyfonts}%
  1525. \def\@fontarg{\@bodyfonts}%
  1526. \typeout{^^JFatal error: \@fontcommand{\@fontarg} calls 
  1527. for an invalid font.^^J^^J
  1528. \space Use \@fontcommand{texfonts} or \@fontcommand{postscript}^^J
  1529. \space depending on what fonts are available on your machine.^^J^^J
  1530. \space Using \@fontcommand{} will give you the default fonts.^^J^^J
  1531. \space Change your file, and rerun LaTeX.^^J}}%
  1532. \def\@errorshortmemo{%
  1533. \typeout{^^JWarning: Use of the \protect\shortmemostyle\space macro
  1534. is intended^^J
  1535. \@eightspaces for use with memos of ten lines or less.^^J^^J}%
  1536. }%
  1537. \def\@erroras#1#2#3{%
  1538. \typeout{^^JWarning: You have used both \protect#1\space and
  1539. \protect#2.^^J
  1540. \@eightspaces Use one or the other but not both.^^J
  1541. \@eightspaces "#3" will not be printed on this memo.^^J^^J}%
  1542. }%
  1543. \def\@todieornottodie{\relax}%
  1544. \def\@exit{\@fileswfalse\end{document}}%
  1545. \def\@item[#1]{%
  1546. \if@noparitem \@donoparitem
  1547. \else \if@inlabel \indent \par \fi
  1548. \ifhmode \unskip\unskip \par \fi 
  1549. \if@newlist \if@nobreak \@nbitem \else
  1550. {%
  1551. \if@closing
  1552. \@beginparpenalty=10000
  1553. \fi
  1554. \addpenalty\@beginparpenalty
  1555. }%
  1556. \addvspace\@topsep \addvspace{-\parskip}\fi
  1557. \else 
  1558. {%
  1559. \if@closing
  1560. \ifnum \c@@countlist = 1 
  1561. \@itempenalty=10000
  1562. \fi
  1563. \advance \@countmemolist by -1
  1564. \ifnum \c@@countlist = \@countmemolist
  1565. \@itempenalty=10000
  1566. \fi
  1567. \fi
  1568. \addpenalty\@itempenalty 
  1569. }%
  1570. \addvspace\itemsep 
  1571. \fi 
  1572. \global\@inlabeltrue 
  1573. \fi
  1574. \everypar{\global\@minipagefalse\global\@newlistfalse 
  1575. \if@inlabel\global\@inlabelfalse \hskip -\parindent \box\@labels
  1576. \penalty\z@ \fi
  1577. \everypar{}}\global\@nobreakfalse
  1578. \if@noitemarg\@noitemargfalse \if@nmbrlist\refstepcounter{\@listctr}\fi\fi
  1579. \setbox\@tempboxa\hbox{\makelabel{#1}}%
  1580. \global\setbox\@labels
  1581. \hbox{\unhbox\@labels \hskip \itemindent
  1582. \hskip -\labelwidth \hskip -\labelsep 
  1583. \ifdim \wd\@tempboxa >\labelwidth 
  1584. \box\@tempboxa
  1585. \else \hbox to\labelwidth {\makelabel{#1}}\fi
  1586. \hskip \labelsep}\ignorespaces
  1587. }%
  1588. \def\@outputpage{\begingroup\catcode`\ =10 
  1589. \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii
  1590. \if@specialpage
  1591. \global\@specialpagefalse\@nameuse{ps@\@specialstyle}\fi
  1592. \if@twoside
  1593. \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
  1594. \let\@themargin\oddsidemargin
  1595. \else \let\@thehead\@evenhead
  1596. \let\@thefoot\@evenfoot \let\@themargin\evensidemargin
  1597. \fi\fi
  1598. \shipout
  1599. \vbox{\normalsize \baselineskip\z@ \lineskip\z@
  1600. \let\par\@@par %
  1601. \@specialbopemit%
  1602. \vskip \topmargin \moveright\@themargin
  1603. \vbox{\setbox\@tempboxa
  1604. \vbox to\headheight{\vfil \hbox to\textwidth{\@thehead}}%
  1605. \dp\@tempboxa\z@
  1606. \box\@tempboxa
  1607. \vskip \headsep
  1608. \box\@outputbox
  1609. \baselineskip\footskip
  1610. \hbox to\textwidth{\@thefoot}}}\global\@colht\textheight
  1611. \endgroup
  1612. \ifnum\c@page=1%
  1613. \global\topskip=\ht\strutbox%
  1614. \global\headsep=\@dimentoppagetwo%
  1615. \global\advance\headsep by -\topskip%
  1616. \global\advance\textheight by -\headsep%
  1617. \fi%
  1618. \stepcounter{page}%
  1619. \let\firstmark\botmark}%
  1620. \def\@specialbopempty{}%
  1621. \let\@specialboptext=\@specialbopempty
  1622. \def\specialbop#1{%
  1623. \xdef\@specialboptext{%
  1624. \@specialboptext 
  1625. \special{#1}%
  1626. }%
  1627. }%
  1628. \def\@specialbopemit{%
  1629. \ifx\@specialboptext\@specialbopempty
  1630. \else
  1631. \@specialboptext
  1632. \global\let\@specialboptext=\@specialbopempty
  1633. \fi
  1634. }%
  1635.